home *** CD-ROM | disk | FTP | other *** search
Text File | 2005-01-28 | 31.5 KB | 1,351 lines |
- object FormAddEdit: TFormAddEdit
- Left = 162
- Top = 105
- HelpContext = 441
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'FormAddEdit'
- ClientHeight = 499
- ClientWidth = 638
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- ShowHint = True
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object btnSaveAndExit: TBitBtn
- Left = 264
- Top = 456
- Width = 121
- Height = 30
- Caption = 'Save and E&xit'
- Default = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnSaveAndExitClick
- end
- object btnCancel: TBitBtn
- Left = 412
- Top = 456
- Width = 121
- Height = 30
- Caption = 'Can&cel'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnCancelClick
- end
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 638
- Height = 441
- ActivePage = TabSheet1
- Align = alTop
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- object TabSheet1: TTabSheet
- Caption = '&General'
- object Label1: TLabel
- Left = 15
- Top = 24
- Width = 61
- Height = 15
- Caption = '&First Name'
- FocusControl = GE_First
- end
- object Label2: TLabel
- Left = 211
- Top = 24
- Width = 73
- Height = 15
- Caption = '&Middle Name'
- FocusControl = GE_Middle
- end
- object Label3: TLabel
- Left = 424
- Top = 24
- Width = 61
- Height = 15
- Caption = '&Last Name'
- FocusControl = GE_last
- end
- object Label4: TLabel
- Left = 15
- Top = 63
- Width = 56
- Height = 15
- Caption = 'Nic&kname'
- FocusControl = GE_Nickname
- end
- object Label5: TLabel
- Left = 211
- Top = 64
- Width = 23
- Height = 15
- Caption = '&Title'
- FocusControl = GE_Title
- end
- object LP_Gender: TLabel
- Left = 424
- Top = 66
- Width = 41
- Height = 15
- Caption = 'Gen&der'
- FocusControl = GCom_Gender
- end
- object Label6: TLabel
- Left = 15
- Top = 101
- Width = 43
- Height = 15
- Caption = 'S&pouse'
- FocusControl = GE_spouse
- end
- object Label7: TLabel
- Left = 211
- Top = 100
- Width = 44
- Height = 15
- Caption = 'Bi&rthday'
- FocusControl = GTime_birthday
- end
- object LP_Anniv: TLabel
- Left = 424
- Top = 103
- Width = 63
- Height = 15
- Caption = '&Anniversary'
- FocusControl = GTime_Ann
- end
- object Label8: TLabel
- Left = 15
- Top = 141
- Width = 47
- Height = 15
- Caption = 'Childr&en'
- FocusControl = GE_child1
- end
- object LP_ICQ: TLabel
- Left = 15
- Top = 180
- Width = 21
- Height = 15
- Caption = 'IC&Q'
- FocusControl = GE_ICQ
- end
- object LP_Messenger: TLabel
- Left = 211
- Top = 180
- Width = 72
- Height = 15
- Caption = 'M&SN Account'
- FocusControl = GE_MSN
- end
- object LP_AIM: TLabel
- Left = 424
- Top = 180
- Width = 65
- Height = 15
- Caption = 'A&IM Account'
- FocusControl = GE_AIM
- end
- object LP_Category: TLabel
- Left = 15
- Top = 219
- Width = 49
- Height = 15
- Caption = 'Categor&y'
- FocusControl = GCom_category
- end
- object GE_child1: TEdit
- Left = 77
- Top = 138
- Width = 99
- Height = 23
- AutoSize = False
- TabOrder = 9
- end
- object GE_child2: TEdit
- Left = 186
- Top = 138
- Width = 99
- Height = 23
- AutoSize = False
- TabOrder = 10
- end
- object GE_child3: TEdit
- Left = 295
- Top = 138
- Width = 99
- Height = 23
- AutoSize = False
- TabOrder = 11
- end
- object GE_child4: TEdit
- Left = 403
- Top = 138
- Width = 99
- Height = 23
- AutoSize = False
- TabOrder = 12
- end
- object GE_child5: TEdit
- Left = 512
- Top = 138
- Width = 99
- Height = 23
- AutoSize = False
- TabOrder = 13
- end
- object GCheck_private: TCheckBox
- Left = 494
- Top = 219
- Width = 124
- Height = 17
- Caption = 'Pri&vate Information'
- TabOrder = 18
- end
- object GTime_birthday: TDateEdit
- Left = 288
- Top = 98
- Width = 121
- Height = 23
- NumGlyphs = 2
- TabOrder = 7
- end
- object GTime_Ann: TDateEdit
- Left = 492
- Top = 98
- Width = 121
- Height = 23
- NumGlyphs = 2
- TabOrder = 8
- end
- object GroupBox1: TGroupBox
- Left = 14
- Top = 252
- Width = 440
- Height = 146
- Caption = '&Note'
- TabOrder = 19
- object GM_note: TMemo
- Left = 13
- Top = 20
- Width = 413
- Height = 114
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object GroupBox2: TGroupBox
- Left = 469
- Top = 252
- Width = 148
- Height = 146
- Caption = 'Photo'
- TabOrder = 20
- object SpeedButton1: TSpeedButton
- Left = 115
- Top = 52
- Width = 25
- Height = 25
- Hint = 'Select a Image File'
- Flat = True
- Glyph.Data = {
- 42020000424D4202000000000000420000002800000010000000100000000100
- 1000030000000002000000000000000000000000000000000000007C0000E003
- 00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C000000000000000000000000000000000000000000001F7C1F7C
- 1F7C1F7C1F7C8031803140664066E03D4066E03D4066E03D4066E03D00001F7C
- 1F7C1F7C1F7C8031F27F80314066406640664066E03D4066E03D4066E03D0000
- 1F7C1F7C1F7C8031F27F207F8031406640664066406640664066E03D4066E03D
- 00001F7C1F7C8031F27FFF7F207F8031406640664066406640664066E03D4066
- E03D00001F7C8031F27F207FFF7F207F80318031803180318031803180318031
- 8031803100008031F27FFF7F207FFF7F207F207F207F207F207F00001F7C1F7C
- 1F7C1F7C1F7C8031F27F207FFF7FF27FF27FF27FF27FF27FF27F00001F7C1F7C
- 1F7C1F7C1F7C8031FF7FF27F326780318031803180318031803180311F7C1F7C
- 1F7C1F7C1F7C1F7C8031803180311F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CCC00
- CC00CC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- D200CC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD2001F7C1F7C1F7CD200
- 1F7CCC001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD200D200D2001F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C}
- OnClick = SpeedButton1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 115
- Top = 77
- Width = 25
- Height = 25
- Hint = 'Clear Image'
- Flat = True
- Glyph.Data = {
- 42020000424D4202000000000000420000002800000010000000100000000100
- 1000030000000002000000000000000000000000000000000000007C0000E003
- 00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C00481F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 007C1F7C1F7C1F7CC564007C00481F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7CC564457E007C00481F7C1F7C1F7C1F7C1F7C1F7C1F7C007C
- 1F7C1F7C1F7C1F7C1F7CC564807D00641F7C1F7C1F7C1F7C1F7C1F7C007C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C0064007C00481F7C1F7C1F7C1F7C007C00481F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C0064007C00481F7C1F7C007C00481F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0064007C0048007C00481F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0064007C00481F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0064007C0048006400481F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C0064007C00481F7C1F7C006400481F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C0064007C007C00481F7C1F7C1F7C1F7C006400481F7C
- 1F7C1F7C1F7C1F7C0064457E007C00481F7C1F7C1F7C1F7C1F7C1F7C00640048
- 1F7C1F7C1F7C1F7C8C4900648C491F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 00641F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
- 1F7C1F7C1F7C}
- OnClick = SpeedButton2Click
- end
- object Panel1: TPanel
- Left = 13
- Top = 20
- Width = 103
- Height = 114
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 0
- object GP_photo: TImage
- Left = 1
- Top = 1
- Width = 101
- Height = 112
- Hint = 'Double-click it to show original size'
- Align = alClient
- Stretch = True
- OnDblClick = GP_photoDblClick
- end
- end
- end
- object GE_First: TEdit
- Left = 77
- Top = 20
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 0
- end
- object GE_Middle: TEdit
- Left = 288
- Top = 20
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 1
- end
- object GE_last: TEdit
- Left = 492
- Top = 20
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 2
- end
- object GE_Nickname: TEdit
- Left = 77
- Top = 59
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 3
- end
- object GE_Title: TEdit
- Left = 288
- Top = 59
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 4
- end
- object GCom_Gender: TComboBox
- Left = 492
- Top = 59
- Width = 121
- Height = 23
- Style = csDropDownList
- ItemHeight = 15
- TabOrder = 5
- Items.Strings = (
- 'Unspecified'
- 'Female'
- 'Male')
- end
- object GCom_category: TComboBox
- Left = 77
- Top = 216
- Width = 405
- Height = 23
- ItemHeight = 15
- TabOrder = 17
- Items.Strings = (
- 'International'
- 'Business'
- 'Competition'
- 'Supplier'
- 'Customer'
- 'Personal'
- 'Favorites')
- end
- object GE_spouse: TEdit
- Left = 77
- Top = 98
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 6
- end
- object GE_ICQ: TEdit
- Left = 77
- Top = 177
- Width = 120
- Height = 23
- AutoSize = False
- TabOrder = 14
- end
- object GE_MSN: TEdit
- Left = 288
- Top = 176
- Width = 124
- Height = 23
- AutoSize = False
- TabOrder = 15
- end
- object GE_AIM: TEdit
- Left = 492
- Top = 176
- Width = 121
- Height = 23
- AutoSize = False
- TabOrder = 16
- end
- end
- object TabSheet2: TTabSheet
- Caption = '&Business'
- ImageIndex = 1
- object LB_company: TLabel
- Left = 15
- Top = 19
- Width = 53
- Height = 15
- Caption = 'Compan&y'
- FocusControl = BE_company
- end
- object LB_office: TLabel
- Left = 363
- Top = 19
- Width = 31
- Height = 15
- Caption = 'Of&fice'
- FocusControl = BE_office
- end
- object LB_department: TLabel
- Left = 15
- Top = 53
- Width = 65
- Height = 15
- Caption = '&Department'
- FocusControl = BE_department
- end
- object LB_jobTitle: TLabel
- Left = 348
- Top = 53
- Width = 46
- Height = 15
- Caption = '&Job Title'
- FocusControl = BE_JobTitle
- end
- object Bevel1: TBevel
- Left = 15
- Top = 84
- Width = 600
- Height = 6
- Shape = bsTopLine
- end
- object LB_address: TLabel
- Left = 15
- Top = 100
- Width = 32
- Height = 15
- Caption = 'St&reet'
- FocusControl = BE_Address
- end
- object LB_city: TLabel
- Left = 15
- Top = 133
- Width = 20
- Height = 15
- Caption = 'Ci&ty'
- FocusControl = BE_City
- end
- object LB_state: TLabel
- Left = 322
- Top = 133
- Width = 72
- Height = 15
- Hint = 'State/Provine'
- Caption = 'State/Pro&vine'
- FocusControl = BE_State
- end
- object LB_postcode: TLabel
- Left = 15
- Top = 166
- Width = 55
- Height = 15
- Caption = '&Zip/Postal'
- FocusControl = BE_ZIP
- end
- object LB_country: TLabel
- Left = 309
- Top = 166
- Width = 85
- Height = 15
- Hint = 'Country/Region'
- Caption = 'Co&untry/Region'
- FocusControl = BE_Country
- end
- object Bevel2: TBevel
- Left = 15
- Top = 198
- Width = 600
- Height = 6
- Shape = bsTopLine
- end
- object Bevel3: TBevel
- Left = 15
- Top = 315
- Width = 600
- Height = 6
- Shape = bsTopLine
- end
- object LB_phone: TLabel
- Left = 15
- Top = 213
- Width = 102
- Height = 15
- Caption = 'Business &Phone 1'
- FocusControl = BE_P1
- end
- object Label9: TLabel
- Left = 321
- Top = 213
- Width = 102
- Height = 15
- Caption = 'Business Pho&ne 2'
- FocusControl = BE_p2
- end
- object Label10: TLabel
- Left = 15
- Top = 249
- Width = 102
- Height = 15
- Caption = 'Business &Mobile 1'
- FocusControl = BE_p3
- end
- object Label11: TLabel
- Left = 321
- Top = 249
- Width = 102
- Height = 15
- Caption = 'Busine&ss Mobile 2'
- FocusControl = BE_p4
- end
- object Label12: TLabel
- Left = 15
- Top = 282
- Width = 85
- Height = 15
- Caption = 'Business F&ax 1'
- FocusControl = BE_p5
- end
- object Label13: TLabel
- Left = 321
- Top = 282
- Width = 85
- Height = 15
- Caption = 'Business Fa&x 2'
- FocusControl = BE_p6
- end
- object Label14: TLabel
- Left = 15
- Top = 332
- Width = 42
- Height = 15
- Hint = 'Business Email 1'
- Caption = '&Email 1'
- FocusControl = BE_e1
- end
- object Label15: TLabel
- Left = 234
- Top = 332
- Width = 42
- Height = 15
- Hint = 'Business Email 2'
- Caption = 'Ema&il 2'
- FocusControl = BE_e2
- end
- object Label16: TLabel
- Left = 431
- Top = 332
- Width = 42
- Height = 15
- Hint = 'Business Email 3'
- Caption = 'Emai&l 3'
- FocusControl = BE_e3
- end
- object Bevel4: TBevel
- Left = 15
- Top = 364
- Width = 600
- Height = 6
- Shape = bsTopLine
- end
- object Label17: TLabel
- Left = 15
- Top = 380
- Width = 56
- Height = 15
- Caption = '&Web page'
- FocusControl = BE_web
- end
- object SpeedButton3: TSpeedButton
- Left = 592
- Top = 378
- Width = 23
- Height = 23
- Caption = 'Go'
- OnClick = SpeedButton3Click
- end
- object BE_company: TEdit
- Left = 85
- Top = 16
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 0
- end
- object BE_office: TEdit
- Left = 401
- Top = 16
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 1
- end
- object BE_department: TEdit
- Left = 85
- Top = 50
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 2
- end
- object BE_JobTitle: TEdit
- Left = 401
- Top = 50
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 3
- end
- object BE_Address: TEdit
- Left = 84
- Top = 97
- Width = 458
- Height = 23
- AutoSize = False
- TabOrder = 4
- end
- object BE_City: TEdit
- Left = 85
- Top = 131
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 5
- end
- object BE_State: TEdit
- Left = 401
- Top = 131
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 6
- end
- object BE_ZIP: TEdit
- Left = 85
- Top = 165
- Width = 212
- Height = 23
- AutoSize = False
- TabOrder = 7
- end
- object BE_Country: TEdit
- Left = 401
- Top = 165
- Width = 213
- Height = 23
- AutoSize = False
- TabOrder = 8
- end
- object BE_P1: TEdit
- Left = 125
- Top = 211
- Width = 150
- Height = 23
- AutoSize = False
- TabOrder = 9
- end
- object BE_p2: TEdit
- Left = 441
- Top = 212
- Width = 151
- Height = 23
- AutoSize = False
- TabOrder = 10
- end
- object BE_p3: TEdit
- Left = 125
- Top = 246
- Width = 150
- Height = 23
- AutoSize = False
- TabOrder = 11
- end
- object BE_p4: TEdit
- Left = 441
- Top = 246
- Width = 151
- Height = 23
- AutoSize = False
- TabOrder = 12
- end
- object BE_e1: TEdit
- Left = 75
- Top = 329
- Width = 121
- Height = 23
- Hint = 'Double-click it to send email'
- AutoSize = False
- TabOrder = 15
- OnDblClick = BE_e1DblClick
- end
- object BE_e2: TEdit
- Left = 279
- Top = 329
- Width = 121
- Height = 23
- Hint = 'Double-click it to send email'
- AutoSize = False
- TabOrder = 16
- OnDblClick = BE_e1DblClick
- end
- object BE_e3: TEdit
- Left = 477
- Top = 329
- Width = 121
- Height = 23
- Hint = 'Double-click it to send email'
- AutoSize = False
- TabOrder = 17
- OnDblClick = BE_e1DblClick
- end
- object BE_web: TEdit
- Left = 75
- Top = 378
- Width = 517
- Height = 23
- AutoSize = False
- TabOrder = 18
- end
- object BE_p5: TEdit
- Left = 125
- Top = 282
- Width = 168
- Height = 23
- AutoSize = False
- TabOrder = 13
- end
- object BE_p6: TEdit
- Left = 441
- Top = 279
- Width = 171
- Height = 23
- AutoSize = False
- TabOrder = 14
- end
- object CH_BusinessAddress: TCheckBox
- Left = 555
- Top = 101
- Width = 61
- Height = 17
- Caption = 'Default'
- Checked = True
- State = cbChecked
- TabOrder = 19
- OnClick = CH_BusinessAddressClick
- end
- object CH_BE1: TCheckBox
- Left = 198
- Top = 332
- Width = 18
- Height = 17
- Hint = 'As Default Email'
- Checked = True
- State = cbChecked
- TabOrder = 20
- OnClick = CH_BE1Click
- end
- object CH_BE2: TCheckBox
- Left = 403
- Top = 331
- Width = 18
- Height = 17
- Hint = 'As Default Email'
- TabOrder = 21
- OnClick = CH_BE2Click
- end
- object CH_BE3: TCheckBox
- Left = 600
- Top = 331
- Width = 14
- Height = 17
- Hint = 'As Default Email'
- TabOrder = 22
- OnClick = CH_BE2Click
- end
- object CH_BP1: TCheckBox
- Left = 280
- Top = 213
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- Checked = True
- State = cbChecked
- TabOrder = 23
- OnClick = CH_BP1Click
- end
- object CH_BP3: TCheckBox
- Left = 280
- Top = 248
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 24
- OnClick = CH_BP2Click
- end
- object CH_BP4: TCheckBox
- Left = 599
- Top = 248
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 25
- OnClick = CH_BP2Click
- end
- object CH_BP2: TCheckBox
- Left = 599
- Top = 215
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 26
- OnClick = CH_BP2Click
- end
- end
- object TabSheet3: TTabSheet
- Caption = '&Home'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ImageIndex = 2
- ParentFont = False
- object Label18: TLabel
- Left = 16
- Top = 20
- Width = 35
- Height = 16
- Caption = 'St&reet'
- FocusControl = HE_Address
- end
- object Label19: TLabel
- Left = 16
- Top = 70
- Width = 23
- Height = 16
- Caption = 'Ci&ty'
- FocusControl = HE_City
- end
- object Label20: TLabel
- Left = 311
- Top = 70
- Width = 77
- Height = 16
- Hint = 'State/Provine'
- Caption = 'State/Pro&vine'
- FocusControl = HE_State
- end
- object Label21: TLabel
- Left = 311
- Top = 116
- Width = 89
- Height = 16
- Hint = 'Country/Region'
- Caption = 'Co&untry/Region'
- FocusControl = HE_Country
- end
- object Label22: TLabel
- Left = 16
- Top = 116
- Width = 58
- Height = 16
- Caption = '&Zip/Postal'
- FocusControl = HE_ZIP
- end
- object Label23: TLabel
- Left = 16
- Top = 177
- Width = 86
- Height = 16
- Caption = 'Home &Phone 1'
- FocusControl = HE_P1
- end
- object Bevel5: TBevel
- Left = 17
- Top = 154
- Width = 594
- Height = 6
- Shape = bsTopLine
- end
- object Label24: TLabel
- Left = 311
- Top = 178
- Width = 86
- Height = 16
- Caption = 'Home Pho&ne 2'
- FocusControl = HE_P2
- end
- object Label25: TLabel
- Left = 311
- Top = 223
- Width = 87
- Height = 16
- Caption = 'Home &Mobile 2'
- FocusControl = HE_P4
- end
- object Label26: TLabel
- Left = 16
- Top = 220
- Width = 87
- Height = 16
- Caption = '&Home Mobile 1'
- FocusControl = HE_P3
- end
- object Label27: TLabel
- Left = 16
- Top = 262
- Width = 71
- Height = 16
- Caption = 'Home F&ax 1'
- FocusControl = HE_P5
- end
- object Label28: TLabel
- Left = 311
- Top = 269
- Width = 71
- Height = 16
- Caption = 'Home Fa&x 2'
- FocusControl = HE_P6
- end
- object Bevel6: TBevel
- Left = 17
- Top = 302
- Width = 594
- Height = 6
- Shape = bsTopLine
- end
- object Label29: TLabel
- Left = 16
- Top = 325
- Width = 44
- Height = 16
- Hint = 'Business Email 1'
- Caption = '&Email 1'
- FocusControl = HE_e1
- end
- object Label30: TLabel
- Left = 225
- Top = 325
- Width = 44
- Height = 16
- Hint = 'Business Email 2'
- Caption = 'Ema&il 2'
- FocusControl = HE_e2
- end
- object Label31: TLabel
- Left = 425
- Top = 325
- Width = 44
- Height = 16
- Hint = 'Business Email 3'
- Caption = 'Emai&l 3'
- FocusControl = HE_e3
- end
- object Bevel7: TBevel
- Left = 17
- Top = 361
- Width = 594
- Height = 6
- Shape = bsTopLine
- end
- object Label32: TLabel
- Left = 16
- Top = 380
- Width = 59
- Height = 16
- Caption = '&Web page'
- FocusControl = HE_web
- end
- object SpeedButton4: TSpeedButton
- Left = 592
- Top = 378
- Width = 23
- Height = 23
- Caption = 'Go'
- OnClick = SpeedButton4Click
- end
- object HE_Address: TEdit
- Left = 77
- Top = 18
- Width = 465
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object HE_City: TEdit
- Left = 77
- Top = 65
- Width = 204
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object HE_State: TEdit
- Left = 406
- Top = 65
- Width = 204
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object HE_Country: TEdit
- Left = 406
- Top = 112
- Width = 204
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object HE_ZIP: TEdit
- Left = 77
- Top = 112
- Width = 204
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- end
- object HE_P1: TEdit
- Left = 106
- Top = 176
- Width = 162
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- object HE_P2: TEdit
- Left = 409
- Top = 176
- Width = 184
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- end
- object HE_P4: TEdit
- Left = 409
- Top = 218
- Width = 184
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- end
- object HE_P3: TEdit
- Left = 106
- Top = 218
- Width = 162
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- end
- object HE_P5: TEdit
- Left = 105
- Top = 260
- Width = 180
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- end
- object HE_P6: TEdit
- Left = 409
- Top = 260
- Width = 201
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- end
- object HE_e1: TEdit
- Left = 75
- Top = 323
- Width = 121
- Height = 23
- Hint = 'Double-click it to send email'
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 11
- OnDblClick = BE_e1DblClick
- end
- object HE_e2: TEdit
- Left = 272
- Top = 323
- Width = 121
- Height = 23
- Hint = 'Double-click it to send email'
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 12
- OnDblClick = BE_e1DblClick
- end
- object HE_e3: TEdit
- Left = 473
- Top = 323
- Width = 121
- Height = 23
- Hint = 'Double-click it to send email'
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 13
- OnDblClick = BE_e1DblClick
- end
- object HE_web: TEdit
- Left = 76
- Top = 378
- Width = 516
- Height = 23
- AutoSize = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 14
- end
- object CH_HomeAddress: TCheckBox
- Left = 552
- Top = 21
- Width = 61
- Height = 17
- Caption = 'Default'
- TabOrder = 15
- OnClick = CH_HomeAddressClick
- end
- object CH_HP4: TCheckBox
- Left = 598
- Top = 221
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 16
- OnClick = CH_BP2Click
- end
- object CH_HP2: TCheckBox
- Left = 598
- Top = 178
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 17
- OnClick = CH_BP2Click
- end
- object CH_HP1: TCheckBox
- Left = 273
- Top = 179
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 18
- OnClick = CH_BP2Click
- end
- object CH_HP3: TCheckBox
- Left = 272
- Top = 220
- Width = 17
- Height = 17
- Hint = 'As Default Phone'
- TabOrder = 19
- OnClick = CH_BP2Click
- end
- object CH_HE1: TCheckBox
- Left = 199
- Top = 325
- Width = 18
- Height = 17
- Hint = 'As Default Email'
- TabOrder = 20
- OnClick = CH_BE2Click
- end
- object CH_HE2: TCheckBox
- Left = 396
- Top = 325
- Width = 18
- Height = 17
- Hint = 'As Default Email'
- TabOrder = 21
- OnClick = CH_BE2Click
- end
- object CH_HE3: TCheckBox
- Left = 598
- Top = 325
- Width = 14
- Height = 17
- Hint = 'As Default Email'
- TabOrder = 22
- OnClick = CH_BE2Click
- end
- end
- end
- object btnSaveAndAdd: TBitBtn
- Left = 116
- Top = 456
- Width = 121
- Height = 30
- Caption = '&Save and Add'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnSaveAndAddClick
- end
- end
-